home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / clean / sun3.lha / Sun3 / seqdemos / rfib.icl < prev    next >
Text File  |  1992-08-07  |  336b  |  20 lines
  1. MODULE rfib;
  2.  
  3. <<
  4. The Nfib function using reals.
  5.  
  6. To obtain maximum performance guards are used instead of
  7. pattern matching.
  8. >>
  9.  
  10. IMPORT deltaR;
  11.  
  12. RULE
  13.  
  14. ::  Nfib REAL -> REAL;
  15.     Nfib n  -> 1.0 , IF <R n 2.0
  16.             -> +R (+R (Nfib (-R n 1.0)) (Nfib (-R n 2.0))) 1.0;
  17.                       
  18. ::  Start -> REAL;
  19.     Start -> Nfib 26.0;
  20.